home *** CD-ROM | disk | FTP | other *** search
/ InterCD 2002 January / january_2002.iso / Piposh Special / Piposh / STRTGAME.DXR / 00213_option6.ls < prev    next >
Encoding:
Text File  |  2004-12-07  |  387 b   |  15 lines
  1. on exitFrame
  2.   global gWinDriveLetter, soundspathstart, cdpath
  3.   the searchPath = ["c:\sounds\strtgame\"]
  4.   x = getAt(the searchPath, 1)
  5.   sound playFile 1, x & "egozcold.aif"
  6.   if soundBusy(1) then
  7.     alfred = x
  8.     gWinDriveLetter = char 1 of line 1 of alfred
  9.     soundspathstart = gWinDriveLetter & ":\sounds\"
  10.     cdpath = gWinDriveLetter & ":\"
  11.   else
  12.     go("alert")
  13.   end if
  14. end
  15.